home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / www / HTMLDate.lha / HTMLDate.ged next >
Text File  |  1997-03-31  |  3KB  |  113 lines
  1. /* Update the revision date in HTML docs, using GoldED ©1997 Roy E Brown
  2.  
  3.   $VER: HTMLDate.ged V1.3 (31.3.97)
  4.  
  5.   This script will update the revision date of your HTML pages.
  6.  
  7.   Your date string can be in one of two styles:
  8.  
  9.     (1)   Last revised: 31 March 1997
  10.  
  11.     (2)   Last revised: Monday, 31 March 1997
  12.  
  13.   The date itself can be surrounded by a maximum of one pair of text style tags
  14.   i.e '<B>31 March 1997</B>'.
  15.  
  16.   The script searches for the default words 'Last revised' (without the quotes),
  17.   deletes the existing date and enters the current date into the text.
  18.  
  19.   The script is configured to look for a 2-word string ("Last revised"). It then
  20.   assumes that these 2 words are followed by either a 3 or 4 word date string, as
  21.   in the 2 examples above.
  22.  
  23.   Set the 2 words to search for in the variable 'Str' below.
  24.  
  25.   Set the date style in the 'Style' variable below.
  26.  
  27.   You should set the GoldED default date style (Extras/Options global/gui) to
  28.   the following (without the quotes) -
  29.  
  30.   Style 1   '%e %B %Y'
  31.  
  32.   Style 2   '%A, %e %B %Y'  (The comma is optional)
  33.  
  34.   This will then print the date in the correct format. 
  35.  
  36. */
  37.  
  38. Str="Last revised"  /* Enter your required search string - 2 words maximum.
  39.                        If you put more than 2 words, it won't work! */
  40.  
  41. Style=1             /* Set the style of your date string (see above) */
  42.  
  43. /* **************************************************************************
  44.   Please do not change anything below here, unless you know what you're doing
  45.   of course.
  46.   *************************************************************************** */
  47.  
  48. OPTIONS RESULTS                             /* enable return codes     */
  49. If (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  50.     address 'GOLDED.1'
  51.  
  52. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  53.  
  54. If (RC ~= 0) Then
  55.     Exit
  56.  
  57. OPTIONS FAILAT 6                            /* ignore warnings         */
  58.  
  59. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  60.  
  61. If Style<1|Style>2 Then
  62.   Do
  63.     Say "The Style variable is outside the allowed range"
  64.     'UNLOCK'
  65.     Exit
  66.   End
  67.  
  68. /* Let's find the string and jump to it */
  69. 'FIND STRING="'Str'" FIRST WORDS=0'
  70.  
  71. /* Move cursor along 2 words and back one place */
  72. 'NEXT';'NEXT';'LEFT'
  73.  
  74. /* Let's see what the ASCII code of the character under the cursor is */
  75. 'QUERY CODE'  /* '<' is ASCII Code 60 */
  76.  
  77. If (RESULT=60) Then 'NEXT';'NEXT' /* Let's move past the HTML tag */
  78.  
  79. /* Mark the start of the block, move to the last character of the date,
  80.    mark the end of the block and delete the existing date.
  81. */
  82. 'MARK SET COLUMN BEGIN'
  83.  
  84. If Style=1 Then                /* 31 March 1997 */
  85.   Do
  86.     'NEXT';'NEXT';'ENDWORD'
  87.   End
  88.  
  89. If Style=2 Then                /* Monday, 31 March 1997 */
  90.   Do
  91.     'NEXT';'NEXT';'NEXT';'ENDWORD'
  92.   End
  93.  
  94. 'MARK SET END'             
  95. 'DELETE BLOCK'
  96.  
  97. /* Put the new date into the document */
  98. 'QUERY DATE'
  99. 'TEXT T "'RESULT'"'
  100.  
  101. 'UNLOCK' /* VERY important: unlock GUI */
  102.  
  103. Exit
  104.  
  105. SYNTAX:
  106.  
  107. Say "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  108.  
  109. 'UNLOCK'
  110.  
  111. Exit
  112.  
  113.